home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-01_1988_-_de_Side_B.d64 / verlies (main) (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  22KB  |  540 lines
  1. 0 ifpgoto1000
  2. 1 v=53248:s=54272:sg=12.3-peek(1984):ifpeek(819)<>245thenu$="n"goto18020
  3. 2 d$="":fori=0to9:b$=b$+"    ":next:print"[153][147]
  4. 3 [134]h$(26),a(3),a$(3),wa$(6),su$(5),mo$(20),mo(20,4),ss$(9):[151]s[170]24,15
  5. 20 [141]100:i[178][187]([171]ti):[151]51001,13:[151]51000,13
  6. 50 p[178]7811:lv[178]1:wa[178]1:su[178]1:g[178]6:fa[178]9:[151]5687,7:ti$[178]"000000
  7. 51 pokev+28,255:pokev+21,.:pokev+37,7:pokev+38,10:le=1e3:ht=2
  8. 52 fori=40to43:pokev+i,peek(5687):next:hs=3
  9. 96 gosub10000:goto1000
  10. 100 open1,8,0,"verlies (data),p,r"
  11. 110 fori=0to3:input#1,a(i):input#1,a$(i):next:fori=0to26:input#1,h$(i):next
  12. 120 fori=1to6:input#1,wa$(i):next:fori=1to5:input#1,su$(i):next
  13. 130 fori=1to20:input#1,mo$(i):forj=0to4:input#1,mo(i,j):nextj,i:input#1,k$
  14. 140 fori=1to9:input#1,ss$(i):next:close1:k$=k$+"st\dlich":return
  15. 1000 ifpeek(p)=.thenm=.:mh=.:pokev+21,peek(v+21)and3
  16. 1002 al=a-1:ifa=.thenal=3
  17. 1004 ar=a+1:ifa=3thenar=.
  18. 1010 fori=.to6:poke4328+i,peek(p+a(a)*i):poke4336+i,peek(p+a(al)+a(a)*i)
  19. 1020 poke4343+i,peek(p+a(ar)+a(a)*i):next
  20. 1024 h=peek(4329):ifli=.andpeek(p)=.goto1800
  21. 1025 ifpeek(p)goto1600
  22. 1030 sys5632:ifh=.orh=255goto1100
  23. 1035 printleft$(d$,12)spc(19+3*sgn(a(a)))"[144][211]":ifh>99goto1050
  24. 1040 printleft$(d$,9)spc(18)"###[157][157][157]###[157][157][157]###":goto1100
  25. 1050 ifh>199goto1070
  26. 1060 printleft$(d$,9)spc(16)"gew\lbe[157][157][157][157][157][157][157] -"h-100-lv"[157] - ":goto1100
  27. 1070 ifh>230goto1090
  28. 1080 printleft$(d$,9)spc(16)left$(h$(h-200),7)"[157][157][157][157][157][157][157]"mid$(h$(h-200),8):goto1100
  29. 1090 ifh=250thenprintleft$(d$,9)spc(16)"drachen[157][157][157][157][157][157][157]_h\hle_":goto1100
  30. 1098 printleft$(d$,10)spc(16)"ausgang
  31. 1100 [141]14000:[139]le[178]0[137]15000
  32. 1101 [139]ko[178]1[167][153][200](d$,20)[166]17)"cont"a$(a)
  33. 1102 q[178]0:[158]5640:[153]d$"print(NULL)";
  34. 1103 [139]z1[167]z1[178]z1[171]1:[139]z1[178]0[167][158]5640:[153]d$"on(NULL)der waffenzauber ist verbraucht,"d$"(NULL)";
  35. 1104 [139]z2[167]z2[178]z2[171]1:[139]z2[178]0[167][158]5640:[153]d$"on(NULL)der l[hmzauber ist verbraucht,"d$"(NULL)";
  36. 1105 [139]li[177]0[167]li[178]li[171]1:[139]li[178]0[167][153]d$"(NULL)die fackel ist ausgegangen,"d$;:[139][194](p)[178]0[137]1000
  37. 1106 [139]li[178]15[167][153]d$"(NULL)&die fackel geht gleich aus,&":[137]1100
  38. 1108 [139]z0[167]z0[178]z0[171]1:[139]z0[178]0[167][158]5640:[153]d$"on(NULL)der schutzzauber ist verbraucht,"d$"(NULL)";
  39. 1109 mo[178]1[171]mo:[139]m[175]mo[178]1[137]1400
  40. 1110 [161]u$:[139]u$[178]"v"[176]([194](56320)[175]1)[178]0[137]1500
  41. 1112 [139]u$[178]","[176]([194](56320)[175]4)[178]0[137]1530
  42. 1114 [139]u$[178]"."[176]([194](56320)[175]8)[178]0[137]1540
  43. 1116 [139]u$[178]"t"[175]([194](p)[179][177]240[176]a[178]2)[137]1550
  44. 1118 [139]u$[178]"r"[176]([194](56320)[175]2)[178]0[137]1560
  45. 1120 [139]u$[178]"w"[137]1570
  46. 1122 [139]u$[178]"e"[137]1580
  47. 1124 [139]u$[178]"l"[137]1590
  48. 1126 [139]u$[178]"i"[137]1900
  49. 1128 [139]u$[178]"u"[137]1200
  50. 1130 [139]u$[178]"a"[137]1430
  51. 1131 [139]u$[178]"o"[137]6000
  52. 1132 [139]u$[178]"_"[137]1190
  53. 1133 [139]u$[178]"h"[137]1210
  54. 1135 [139]u$[178]"left$"[137]1220
  55. 1136 [139]u$[178]"p"[137]1230
  56. 1138 [139]u$[178]"k"[137]1240
  57. 1139 [139]u$[178]"f"[137]1250
  58. 1140 [139]u$[178]"b"[137]1270
  59. 1141 [139]u$[178]"s"[137]1280
  60. 1142 [139]u$[178]"z"[137]1290
  61. 1143 [139]u$[178]"j"[137]1294
  62. 1144 [139]u$[178]"d"[137]14150
  63. 1145 [139]u$[178]"m"[137]9000
  64. 1146 [139]u$[178]"restore"[175]w[178]1[167][153]"selbstmord,,,":[137]9060
  65. 1148 [139]u$[177]""[167][153]"wie bitte,,,?";:[137]1100
  66. 1149 q[178]q[170]1:[139]q[178]66[167][153]"cmd(NULL)die zeit vergeht,,,":[137]1100
  67. 1150 [137]1110
  68. 1190 [153]d$"(NULL)die zeit ist eingefroren,
  69. 1191 u$=ti$:sys6738:fori=.to15:forj=1to24:pokes+1,j:nextj,i
  70. 1192 pokes+4,32:sys5640:printd$"[211]dr]cke eine taste zum weiterspielen,
  71. 1194 [151]198,0:[146]198,1:ti$[178]u$:[161]u$:[137]1100
  72. 1200 [153]"schau auf die uhr - ok,";:[139]uh[178]0[167][153]"cmdcmdcmdwelche uhr?":[137]1100
  73. 1202 [158]5640:[153]d$"(NULL)schon";:[139][200](ti$,2)[178]"00"[137]1208
  74. 1203 [139][200](ti$,2)[177]1[167][153][197]([200](ti$,2))"stunden.";:[137]1208
  75. 1204 [153]" eine stunde.";
  76. 1208 [153][197]([202](ti$,3,2))"minuten vorbei,":[137]1100
  77. 1210 [153]"trinke heiltrank - ok,";:[139]ht[178]0[167][153]"cmdcmdcmdhabe ich nicht!":[137]1100
  78. 1212 [158]6713:[129]i[178]9[164]60[169]2:[129]j[178]i[164]60:[151]s[170]1,j
  79. 1214 [130]j,i:[151]s[170]4,16:le[178]10[172][181](le[173]10)
  80. 1216 le[178]le[170]10:[141]10025:[139]le[179]1e3[137]1216
  81. 1218 ht[178]ht[171]1:[137]1100
  82. 1220 [153]"verwende heilsalbe - ok,";:[139]hs[178]0[167][153]"cmdcmdcmdhabe ich nicht!":[137]1100
  83. 1222 [158]6729:[129]i[178]0[164]20[169]5:[129]j[178]i[164]i[170]80:[151]s[170]1,j
  84. 1224 [130]j,i:[151]s[170]4,128
  85. 1226 [129]i[178]1[164]25:le[178]le[170]10:[139]le[177]1e3[167]le[178]1e3
  86. 1228 [141]10025:[130]:hs[178]hs[171]1:[137]1100
  87. 1230 [153]"beschw\re pendel - ok,";:[139]pe[178]0[167][153]"cmdcmdcmdhabe ich nicht!":[137]1100
  88. 1231 [139]m[177]0[167][153]"cmdcmdcmderst k[mpfen!":[137]1100
  89. 1232 [158]6754:[129]i[178]0[164]2e3:[130]:[151]s[170]4,128
  90. 1233 [158]5640:[139][194](p)[179]99[175][194](p)[177]0[167][139][194](16484[170][194](p))[178]26[137]1236
  91. 1234 [153]d$"(NULL)es h[ngt ruhig,":[137]1100
  92. 1236 [153]d$"(NULL)es schl[gt aus!":[137]1100
  93. 1240 [153]"sieh in den kristall - ok,";:[139]kr[178]0[167][153]"cmdcmdcmdhabe ich nicht!":[137]1100
  94. 1242 [158]6775:[139]h[178][177]199[175]h[179]240[167][153]d$"(NULL)ich sehe undeutlich ein monster!":[137]1100
  95. 1244 [139]h[178]240[167][153]d$"ich sehe den b\sen zauberer!":[137]1100
  96. 1246 [139]h[178]0[176]h[177]99[176][194](16584[170]h)[178]0[167][153]d$"ich kann nichts erkennen!":[137]1100
  97. 1248 [153]d$"ich sehe eine";:[139][201](mo$([194](16584[170]h)),1)[179][177]"e"[167][153]"n";
  98. 1249 [153]" "mo$([194](16584[170]h))"!":[137]1100
  99. 1250 [153]"schleudere feuerball - ok,";:[139]fe[178]0[167][153]"cmdcmdcmdgeht nicht!":[137]1100
  100. 1251 q[178][194](v[170]41):[158]6692:[158]6350:fe[178]fe[171]1
  101. 1252 [151]v[170]28,240:[129]i[178]0[164]1:[129]j[178]0[164]80:[130]:[151]2042,215[171]i:[130]:[129]j[178]0[164]80:[130]
  102. 1253 [158]6396:[129]i[178]0[164]2:[129]j[178]0[164]80:[130]:[151]2042,215[171]i:[130]:[139][194](p)[178]240[167]w[178]1
  103. 1254 [129]j[178]0[164]80:[130]:[151]s[170]4,128:[151]v[170]21,[194](v[170]21)[171]4:[151]v[170]41,q:[139]m[178]0[137]1100
  104. 1255 [151]s[170]5,12:[151]s[170]6,12:[151]s[170]1,3:[151]s[170]4,129:[129]i[178]0[164]5:[129]j[178]0[164]1
  105. 1256 [151]2,1[170]6[172]j:[158]6428:[129]e[178]0[164]5:[130]e,j,i:[151]2,mo(m,4):[158]6428:[151]s[170]4,128
  106. 1257 [139]m[178]20[167][151]v[170]45,13:[151]v[170]46,13
  107. 1258 [139]u$[178]"b"[137]1275
  108. 1259 vi[178]vi[171](20[171]mo(m,2)):[139]vi[179]1[167]vi[178]0
  109. 1260 q[178][181](vi[172]1e3[173]mo(m,0)):[151]36,q[173]10[170].99:[158]5500
  110. 1261 [153][200](d$,20)[166]31)"cont     "q[171]10[172][181](q[173]10)"cmd%cmdcmdcmd.cmdcmdcmdcmdcmdcmd";
  111. 1262 u$[178][196]([181](q[173]10)):[153][200]("    ",5[171][195](u$))u$:[137]1480
  112. 1270 [153]"schleudere blitz - ok,";:[139]bl[178]0[167][153]"cmdcmdcmdgeht nicht!":[137]1100
  113. 1271 q[178][194](v[170]41):[158]6692:[158]6350:bl[178]bl[171]1:[151]v[170]41,1:[137]1252
  114. 1275 vi[178]vi[171](42[171]mo(m,2)[172]2):[139]vi[179]1[167]vi[178]0
  115. 1276 [137]1260
  116. 1280 [153]"schutzzauber aktivieren - ok,";:[139]sh[178]0[167][153]"cmdcmdcmdwie denn?":[137]1100
  117. 1282 sh[178]sh[171]1:z0[178]11:e[178]5
  118. 1284 [151]s[170]5,4:[151]s[170]6,196:[129]i[178]1[164]15:[151]s[170]24,i:[151]s[170]4,17
  119. 1286 [129]j[178]0[164]5:[151]s[170]1,i[172]5[172][187](1)[170]50:[130]:[151]s[170]4,16:[130]:[151]s[170]5,9:[151]s[170]6,9
  120. 1288 [151]s[170]4,129:[151]v[170]33,e:[151]v[170]32,e
  121. 1289 [129]i[178]42[164]10[169][171]1:[151]s[170]1,i:[130]:[151]s[170]4,128:[151]v[170]33,11:[151]v[170]32,11:[137]1100
  122. 1290 [153]"waffenzauber aktivieren - ok,";:[139]sw[178]0[167][153]"cmdcmdcmdund wie?":[137]1100
  123. 1292 sw[178]sw[171]1:z1[178]11:e[178]3:[137]1284
  124. 1294 [153]"l[hmungszauber aktivieren - ok,";:[139]lz[178]0[167][153]"cmdcmdcmdwie ohne?":[137]1100
  125. 1296 lz[178]lz[171]1:z2[178]11:e[178]2:[137]1284
  126. 1300 [139]m[177]0[137]1100
  127. 1302 q[178]16584[170][194](p):[139][194](q)[178]0[137]1100
  128. 1305 m[178][194](q):vi[178][194](q[170]100):[129]i[178]0[164]3:[151]v[170]43[170]i,mo(m,4)
  129. 1310 [151]2044[170]i,231[170]m[172]8[171]lv[172]16[170]i:[130]:[158]6801
  130. 1322 [129]i[178]5[164]45:[151]s[170]1,i:[151]s[170]8,50[171]i:[151]v[170]21,0:[129]j[178]0[164]8:[130]:[151]v[170]21,240:[130]
  131. 1330 [151]s[170]4,32:[151]s[170]11,32:[153]d$"onononsys  ein";:[139][201](mo$(m),1)[178]"e"[167][153]"e";
  132. 1332 [153]" "mo$(m)" erscheint!":[129]i[178]0[164]750:[130]:[153]d$"defonononkraft:";
  133. 1333 q[178][181](mo(m,1)[172]1.9):[139]q[177]75[167]q[178]75
  134. 1334 [141]1390:[153]"defpanz:";:q[178]mo(m,2)[172]4.9:[141]1390:[153]"defvita:";:q[178][181]((mo(m,0)[171]10)[173].6)
  135. 1336 [139]m[178]20[167]q[178]70
  136. 1350 [141]1390:[129]i[178]1[164][195](mo$(m)):[153][200](d$,2[170]i)[166]39)[202](mo$(m),i,1):[130]
  137. 1360 mo[178]0:q[178][181](vi[172]1e3[173]mo(m,0)):[151]36,q[173]10[170].99:[158]5500
  138. 1362 [153][200](d$,20)[166]31)"cont     "q[171]10[172][181](q[173]10)"cmd%cmdcmdcmd.cmdcmdcmdcmdcmdcmd";
  139. 1364 u$[178][196]([181](q[173]10)):[153][200]("    ",5[171][195](u$))u$:[137]1100
  140. 1390 q[178][181](q[173]10):[153]"sys"[202](k$,8[172]q[170]1,8);:[142]
  141. 1400 [139]z2[137]1103
  142. 1401 [139]m[178]20[137]8200
  143. 1402 [153]d$"(NULL)das monster greift an - ";
  144. 1405 q[178][194](2044)[170]4:[129]i[178]0[164]3:[151]2044[170]i,q[170]i:[130]:[158]5812
  145. 1410 [139]w[178]0[176]100[172][187](ti)[177]sg[172][186](g)[137]1420
  146. 1411 [153]"du parierst,":[158]5688:[129]i[178]0[164]80:[130]:[158]5912:[129]i[178]0[164]80:[130]
  147. 1412 [158]6829
  148. 1414 [129]i[178]0[164]75:[130]:q[178]q[171]4:[129]i[178]0[164]3:[151]2044[170]i,q[170]i:[130]:[158]6852
  149. 1415 [151]s[170]8,15[172][187](ti)[170]194:[151]s[170]11,21:[151]s[170]15,17
  150. 1416 [129]i[178]0[164]299:[130]:[151]s[170]11,20:q[178]q[170]4:[129]i[178]0[164]3:[151]2044[170]i,q[170]i:[130]:[158]6026
  151. 1418 [129]i[178]0[164]99:[130]:[158]5688:[129]i[178]0[164]99:[130]:[158]5755
  152. 1419 [129]j[178]0[164]99:[130]:q[178]q[171]4:[158]5862:[129]i[178]0[164]3:[151]2044[170]i,q[170]i:[130]:[137]1100
  153. 1420 [153]"es trifft!":q[178]q[171]4:[129]i[178]0[164]3:[151]2044[170]i,q[170]i:[130]
  154. 1421 [129]i[178]15[164]1[169][171]5:[151]s[170]24,16[171]i:[158]6038:[129]j[178]1[164]i:[130]:[151]s[170]24,0:[158]6047
  155. 1423 [129]j[178]1[164]i:[130]j,i:[129]i[178]1[164]15[169]2:[151]s[170]24,16[171]i:[158]6038:[129]j[178]1[164]i:[130]
  156. 1424 [151]s[170]24,0:[158]6047:[129]j[178]1[164]i:[130]j,i:[158]6871
  157. 1425 q[178]q[170]4:[129]i[178]0[164]3:[151]2044[170]i,q[170]i:[130]
  158. 1426 [129]j[178]0[164]99:[130]:q[178]q[171]4:[158]5862:[129]i[178]0[164]3:[151]2044[170]i,q[170]i:[130]
  159. 1427 j[178]su[172]30:i[178][181](2[172]mo(m,1)[172][255][173](1[171](zo[177]0))):le[178]le[171]1[170](i[177]j)[172](i[171]j):[139]le[179]0[167]le[178]0
  160. 1428 [141]10025:[137]1100
  161. 1430 [153]"attackiere gegner - ";:[139]w[178]0[167][153]"womit?":[137]1100
  162. 1440 [139]m[178]0[167][153]"welchen gegner?":[137]1100
  163. 1442 [158]5688:[129]i[178]0[164]80:[130]:[158]5912:[129]i[178]0[164]80:[130]:[158]6890
  164. 1444 [129]i[178]0[164]80:[130]:[158]6178:[151]s[170]4,128
  165. 1450 [129]i[178]0[164]80:[130]:[139]100[172][187](ti)[179]sg[172][186](g)[176]z2[177]0[137]1460
  166. 1452 [139]m[178]20[137]8400
  167. 1455 [153]"du verfehlst,":q[178][194](2044)[170]4:[129]i[178]0[164]3:[151]2044[170]i,q[170]i:[130]:[158]6304
  168. 1456 [129]j[178]0[164]400:[130]:[158]6178:[129]j[178]0[164]99:[130]:[158]6112
  169. 1457 q[178]q[171]4:[129]i[178]0[164]3:[151]2044[170]i,q[170]i:[130]:[129]j[178]0[164]99:[130]:[158]5912
  170. 1458 [129]j[178]0[164]99:[130]:[137]1478
  171. 1460 [158]6240:[153]"getroffen!":[151]s[170]5,42:[151]s[170]6,51:[151]s,71:[151]s[170]4,129
  172. 1462 [129]i[178]0[164]6:[158]6314:[129]j[178]2[164]8[172][187](1)[170]3:[151]s[170]1,j:[130]
  173. 1464 [158]6334:[129]j[178]0[164]20:[130]j,i:[139]m[178]20[167][151]v[170]45,13:[151]v[170]46,13
  174. 1466 [151]s[170]4,128:[129]i[178]0[164]200:[130]
  175. 1468 i[178]wa[172]3:j[178][181](mo(m,2)[173](1[171](z1[177]0))):vi[178]vi[171]1[170](i[177]j)[172](i[171]j):[139]vi[179]0[167]vi[178]0
  176. 1470 q[178][181](vi[172]1e3[173]mo(m,0)):[151]36,q[173]10[170].99:[158]5500
  177. 1472 [153][200](d$,20)[166]31)"cont     "q[171]10[172][181](q[173]10)"cmd%cmdcmdcmd.cmdcmdcmdcmdcmdcmd";
  178. 1474 u$[178][196]([181](q[173]10)):[153][200]("    ",5[171][195](u$))u$
  179. 1476 [158]6178:[129]j[178]0[164]99:[130]:[158]6112:[129]i[178]0[164]99:[130]:[158]5912:[129]j[178]0[164]99:[130]
  180. 1478 [151]v[170]21,240:[158]5688:[129]i[178]0[164]99:[130]:[158]5755
  181. 1480 [139]vi[177]0[137]1100
  182. 1481 [158]5640:mh[178]8:[153]d$"print(NULL)das monster ist tot!
  183. 1482 ifpeek(p)<99thenpoke16584+peek(p),0:ifm=20goto8300
  184. 1483 sys6529:fori=0to14step7:pokes+i+5,0:pokes+i+6,252:pokes+i+4,129:pokes+i+4,128
  185. 1484 next:fori=0to66:pokev+21,peek(v+21)or240:pokev+21,peek(v+21)and15:next
  186. 1486 gosub10010:fori=0to39:poke1864+i,32:next
  187. 1490 j=g:g=g+m/16:m=0:ifg>104.9theng=104.9
  188. 1492 ifint(g)=int(j)goto1100
  189. 1494 sys5640:printd$"[153][211] dein erfahrungswert erh\ht sich,
  190. 1495 [158]6529:[129]i[178]0[164]14[169]7:[151]s[170]i[170]5,0:[151]s[170]i[170]6,252:[151]s[170]i[170]4,33:[151]s[170]i[170]4,32
  191. 1496 [130]:[141]10005:[137]1100
  192. 1500 [139][194](p)[178]240[137]1130
  193. 1502 [153]"gehe vorw[rts - ok,";:[139]h[178]0[175][194](p)[178]0[137]1520
  194. 1510 [153]"cmdcmdcmdboing!":[158]5640:[153]d$"(NULL)&aua. ich bin vor ";
  195. 1511 [139]m[177]0[167][153]"cmd's monster";:[137]1515
  196. 1512 [139]h[178]255[167][153]"die wand";:[137]1515
  197. 1513 [153]"eine t]r";
  198. 1515 [153]" gelaufen,&":[137]1100
  199. 1520 p[178]p[170]a(a):[137]1000
  200. 1530 [153]"drehung nach links - ok,";:[139]m[177]0[167][153]"cmdcmdcmderst k[mpfen,":[137]1100
  201. 1532 a[178]a[171]1:[139]a[179]0[167]a[178]3
  202. 1534 [137]1000
  203. 1540 [153]"drehung nach rechts - ok,";:[139]m[177]0[167][153]"cmdcmdcmderst k[mpfen,":[137]1100
  204. 1542 a[178]a[170]1:[139]a[178]4[167]a[178]0
  205. 1544 [137]1000
  206. 1550 [153]"gehe durch die t]r - ok,";:[139]m[177]0[167][153]"cmdcmdcmderst k[mpfen,":[137]1100
  207. 1551 [139](h[179]200[175]h[177]99)[176]h[178]250[137]7000
  208. 1552 [139][194](p)[178]240[175]a[178]2[167][141]2200:[137]7100
  209. 1553 [139]h[178]240[175]w[178]0[167][141]2100:[129]i[178]0[164]1e3:[130]:[137]1520
  210. 1554 [139]h[177]0[175]w[178]0[175]h[179]255[137]1520
  211. 1555 [139]w[178]0[175][194](p)[177]0[175]h[178]0[167]m[178]0:[137]1520
  212. 1556 [139](h[178]0[175][194](p)[178]0)[176]h[178]255[167][153]"cmdcmdcmddurch welche t]r?":[137]1100
  213. 1557 [158]5640:[153]d$"(NULL)&ich bekomme die t]r nicht auf,&":[137]1100
  214. 1560 [153]"r]ckzug - ok,cmdcmdcmd";:[139][194](p)[177]0[175][194](p[171]a(a))[178]0[175]w[178]1[137]1554
  215. 1561 [139][194](p[171]a(a))[178]0[137]1566
  216. 1562 [139][194](p)[178]82[175]a[178]1[167]a[178]3:h[178]250:[137]7000
  217. 1563 [153]"rumms!":[158]5640:[153]d$"(NULL)&au. ich habe etwas hartes im r]cken,&
  218. 1564 goto1100
  219. 1565 ifpeek(p)<99thenpoke16684+peek(p),vi
  220. 1566 ifpeek(p)=240goto1563
  221. 1567 m=0:p=p-a(a):gosub10010:printleft$(d$,22)b$:goto1000
  222. 1570 print"waffe ";:ifw=0thenprint"ziehen";:gosub5000:goto1578
  223. 1572 print"wegstecken";:gosub5010
  224. 1578 print" - ok,":goto1100
  225. 1580 print"entz]nde fackel - ok,";:ifli>0thenprint"[157][157][157]sie brennt doch!":goto1100
  226. 1581 iffa=0thenprint"[157][157][157]ich habe keine!":goto1100
  227. 1582 iflo=0thenlo=200:fa=fa-1
  228. 1583 li=lo:lo=0:gosub5020:ifpeek(p)=0goto1000
  229. 1584 goto1100
  230. 1590 print"l\sche fackel - ok,";:ifli=0thenprint"[157][157][157]ich habe keine an,":goto1100
  231. 1592 lo=li:li=0:gosub5030:goto1000
  232. 1600 ifpeek(p)=240goto2000
  233. 1602 ifpeek(p)=82goto8000
  234. 1605 fori=2to5:printleft$(d$,i)""left$(b$,37):next
  235. 1610 fori=15to19:printleft$(d$,i)""left$(b$,37):next:fori=6to14
  236. 1620 printleft$(d$,i)"[152]"left$(b$,7)"[155]  [152] [155]"left$(b$,17)"[152] [155]  [152]"left$(b$,7):next
  237. 1630 fori=0to3:printleft$(d$,i+2)""left$(b$,i*2)"[146][184][183]"spc(33-i*4)"[185][186]";
  238. 1640 printleft$(b$,i*2)
  239. 1650 printleft$(d$,18-i)""left$(b$,i*2)"[146][188][187]"spc(33-i*4)"[189][190]"left$(b$,i*2):next
  240. 1670 printleft$(d$,5)spc(8)"[155][162][162][152][183]"spc(17)"[185][155][162][162]
  241. 1675 [153][200](d$,15)[166]8)"newnewwaitprint#rnd"[166]17)"explistnewnew":[139][194](p)[177]199[137]1700
  242. 1680 [153][166]24)"forexpcosverifylogrndoncmdcmdcmdcmdcmdcmdforexpcos  verify  oncmdcmdcmdcmdcmdcmdfor  waitfreusrverifypossqrcmdcmdcmdcmdcmdcmdforonfreusrleft$right$listexpcos";
  243. 1682 [153]"oncmdcmdcmdcmdcmdcmdlogrndexpcos";:[139][194](16484[170][194](p))[177]0[137]1730
  244. 1690 [153]"cmdcmdfor  oncmdcmd(NULL)mid$(NULL)mid$oncmdcmd  oncmdcmdcmdcmdlist  expcosoncmdcmdcmdcmdexpcos":[137]1730
  245. 1700 h[178][194](p):[153][200](d$,3)[166]16)"sys"[200](h$(h[171]200),7)"cmdcmdcmdcmdcmdcmdcmd"[202](h$(h[171]200),8)
  246. 1730 [139][194](p[170]a(a))[177]0[137]1750
  247. 1740 [129]i[178]13[164]9[170]([194](p)[177]99)[169][171]1:[153][200](d$,i)[166]17)"verify     ";:[130]
  248. 1742 [153]"waitstopcmdcmdcmd#cmdcmd";:[139]a[178]1[176]a[178]2[167][153]"";
  249. 1745 [153]"(NULL)":[129]i[178]0[164]4:[151]55833[170]i,9:[130]
  250. 1750 [139][194](p[170]a(al))[177]0[137]1770
  251. 1760 [129]i[178]0[164]400[169]40:[129]j[178]0[164]2:[151]55617[170]i[170]j,9:[130]j,i
  252. 1770 [139][194](p[170]a(ar))[177]0[137]1790
  253. 1780 [129]i[178]0[164]400[169]40:[129]j[178]0[164]2:[151]55651[170]i[170]j,9:[130]j,i
  254. 1790 h[178][194](4329):[139][194](p)[179]99[137]1300
  255. 1792 [139][194](p)[177]199[175][194](p)[179]230[137]6500
  256. 1795 [137]1100
  257. 1800 [129]i[178]2[164]19:[153][200](d$,i)""[200](b$,37):[130]
  258. 1810 [153][200](d$,9)[166]53)"print#es ist dunkel":[137]1100
  259. 1900 [153]"inventur der ausr]stung - ok,
  260. 1905 fori=2to19:printleft$(d$,i)""left$(b$,37):next:q=peek(v+21):pokev+21,0
  261. 1910 print"[158]du besitzt:":print""wa$(wa)". "su$(su)".
  262. 1912 [153]""gd"goldm]nzen.";
  263. 1913 [139]kr[178]1[167][153]" den kristall.
  264. 1914 print"";:ifpe=1thenprint" das pendel.";
  265. 1915 ifko=1thenprint" den kompa^.";
  266. 1916 ifuh=1thenprint" die uhr.
  267. 1918 [153]"";:[139]hs[177]0[167][153]hs"heilsalbe.";:[139]hs[177]1[167][153]"cmdn.";
  268. 1919 [139]ht[177]0[167][153]ht"heiltrank.";:[139]ht[177]1[167][153]"cmdcmdcmdcmd[nke.";
  269. 1920 [153]"";:[139]fe[177]0[167][153]fe"feuerball.";:[139]fe[177]1[167][153]"cmdcmdcmdcmd[lle.";
  270. 1921 [139]bl[177]0[167][153]bl"blitzschlag.";:[139]bl[177]1[167][153]"cmdcmdcmd[ge.
  271. 1922 print"";:ifsh>0thenprintsh"schutzzauber.";
  272. 1923 ifsw>0thenprintsw"waffenzauber
  273. 1924 [153]"";:[139]lz[177]0[167][153]lz"l[hmungszauber.";
  274. 1925 [139]me[178]1[167][153]" den megablast.
  275. 1926 print"";:ifdi=1thenprint" den diamanten.
  276. 1989 [153][200](d$,18)""fa"fackeln";:[139]fa[178]1[167][153]"cmdcmd";
  277. 1990 [153]" und einen magischen sack,
  278. 1995 getu$:ifu$>""or(peek(56320)and16)=0thenpokev+21,q:goto1000
  279. 1999 goto1995
  280. 2000 pokev+21,(peek(v+21))and7:ifa=2goto2090
  281. 2005 print"[159]";:fori=0to6:printb$;:next:print"";
  282. 2010 fori=0to4:printb$;:next:print"[153]";:fori=0to5:printb$;:next
  283. 2020 fori=0to50:poke1625+157*rnd(1),172:next:fori=13to17:forj=0to11
  284. 2030 printleft$(d$,i)spc(37*rnd(1));:x=int(3*rnd(1)+1)
  285. 2040 fore=1tox:print"[146][129][194][145][157]";:next:print"[193][157]";:onxgoto2070,2050,2060
  286. 2050 print"[157][157][157][157][198][199][199][199][199][199][199][197][145][157][157][157][157][157][157][157][157][196]     [146][195][145][157][157][157][157][157][157][196] [145] [157]  [146][195][145][157][157][157]";
  287. 2060 print"[157][157][157][198][199][199][199][199][197][145][157][157][157][157][157][157][196]   [146][195][145][157][157][157][157][196][145] [157] [146][195][145][157][157][157][157][198][199][199][197][145][157][157][157][157][196] [146][195][145][157][157][193]
  288. 2070 [130]j,i:[141]10010:[141]10005:[139]a[137]1100
  289. 2075 [139]ti$[179]"000010"[167][141]11000
  290. 2080 [129]i[178]0[164]3:[151]2044[170]i,202[170]i:[151]v[170]43[170]i,14:[130]:[158]6056:[139]k[178][255][167][141]11100
  291. 2085 [137]1100
  292. 2090 [129]i[178]2[164]16[169]2:[153][200](d$,i)"print#";:[129]j[178]0[164]18:[153]">=";:[130]:[153]"";
  293. 2091 [129]j[178]0[164]18:[153]"=>";:[130]j,i:[141]10010:[141]10005
  294. 2092 [153][200](d$,4)[166]14)"list(NULL)         waitstep";
  295. 2094 [129]i[178]1[164]12:[153][166]29)" verify         wait ";:[130]:[153][166]29)"printstep         (NULL)
  296. 2095 fori=18to19:printleft$(d$,i)"[153]"left$(b$,37):next
  297. 2096 printleft$(d$,6)spc(16)"[144]verlies[157][157][157][157][157][157][157]  des  [157][157][157][157][157][157][157] t_des [157][157][157][157][157][157][157][211]":goto1100
  298. 2100 gosub10010:fori=2to19:printleft$(d$,i)"[152]"left$(b$,14)"[155]"left$(b$,9);
  299. 2102 print"[152]"left$(b$,14):next:fori=2to0step-1:forj=ito0step-1
  300. 2103 printleft$(d$,16+j+4*(i<2)+2*(i<1));
  301. 2104 printspc(14-i*4+2*(i=0)-j*2)"[152][188][187]"left$(b$,7+8*i+4*j-4*(i=0))"[189][190]":nextj,i
  302. 2105 printleft$(d$,19)"[155]"left$(b$,35)
  303. 2106 fori=0to1:forj=1to1+i:printleft$(d$,10+i*3+j)spc(12-i*4)"[155]"left$(b$,15+i*8)
  304. 2108 nextj,i:printleft$(d$,9)spc(14)"[163][163][163][163][163][163][163][163][163][163][163]":fori=2to8
  305. 2110 printleft$(d$,i)spc(17)"[149]     ";:next:print"[157][157][157][157][145][145][145][144][146][211][145][145]#
  306. 2112 [158]5640:[153]d$"print(NULL)du gehst eine treppe hinauf,":[142]
  307. 2200 [141]10010:[129]i[178]2[164]19:[153][200](d$,i)"print#"[200](b$,14)"list"[200](b$,9);
  308. 2202 [153]"print#"[200](b$,14):[130]:[153][200](d$,19)"print#"[200](b$,37)
  309. 2204 [153][200](d$,18)"rnd"[200](b$,35)"exp
  310. 2206 printleft$(d$,17)"[188][187][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][189][190]
  311. 2208 [153][200](d$,16)[166]6)"logrnd"[200](b$,23)"expcos
  312. 2210 printleft$(d$,15)spc(8)"[188][187][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][189][190]
  313. 2212 [153][200](d$,14)[166]12)"logrndtab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(expcos":[129]i[178]1[164]4
  314. 2214 [153][200](d$,i[170]1)[166]5[170]i[172]2)"freusr"[200](b$,25[171]i[172]4)"possqr
  315. 2216 next:fori=7to13:printleft$(d$,i)spc(17)"[149]     ";:next:print"[146][144][145][145][145][157][157][157][157][211][145][145]#
  316. 2218 [158]5640:[153]d$"print(NULL)du gehst eine treppe hinunter,":[151]51001,0:[142]
  317. 5000 [151]s[170]5,128[170]24:[151]s[170]6,247:[151]s[170]1,9[172][187](1)[170]36:[151]s[170]4,129:[129]i[178]0[164]250:[130]
  318. 5002 [151]s[170]12,128[170]10:[151]s[170]13,74:[151]s[170]8,15[172][187](1)[170]194
  319. 5004 [158]6914:[129]i[178]0[164]200:[130]:[151]s[170]11,20:[158]5755:w[178]1:[142]
  320. 5010 [158]5688:[129]i[178]0[164]200:[130]:w[178]0:[151]v[170]21,[194](v[170]21)[171]1
  321. 5011 [151]s[170]5,128[170]24:[151]s[170]6,247:[151]s[170]1,9[172][187](1)[170]36:[151]s[170]4,129
  322. 5012 [129]i[178]0[164]30[169]6:[151]s[170]1,40[171]i:[151]s[170]4,21:j[178]i[172]i:[151]s[170]4,129:j[178]i[174]1:[130]
  323. 5014 [151]s[170]4,128:[142]
  324. 5020 [151]s[170]5,128[170]24:[151]s[170]6,249:[151]s[170]4,129:[129]i[178]50[164]20[169][171].5:[151]s[170]1,i:[130]
  325. 5022 [129]i[178]21[164]40[169].5:[151]s[170]1,i:[130]:[151]s[170]4,128:[142]
  326. 5030 [151]s[170]5,128:[151]s[170]6,248:[151]s[170]1,42:[151]s[170]4,129:[129]i[178]0[164]150:[130]:[151]s[170]4,128:[142]
  327. 6000 [153]"\ffne schatztruhe - ok,";
  328. 6005 [139]m[177]0[167][153]"cmdcmdcmderst k[mpfen!":[137]1100
  329. 6010 [139][194](p)[178]0[176][194](p)[178]82[176][194](p)[177]99[167][153]"cmdcmdcmdwelche truhe?":[137]1100
  330. 6020 q[178][194](16484[170][194](p)):[139]q[178]0[167][153]"cmdcmdcmdsie ist schon auf,":[137]1100
  331. 6030 [139]w[178]1[167][153]"cmdcmdcmdkeine hand frei,":[137]1100
  332. 6040 [153][200](d$,14)[166]24)"for  oncmdcmd(NULL)mid$(NULL)mid$oncmdcmd  oncmdcmdcmdcmdlist  expcosoncmdcmdcmdcmdexpcos"
  333. 6050 [151]16484[170][194](p),0:[158]5640:[153]d$"print(NULL)";:[139]q[177]13[137]6070
  334. 6060 [145]q[137]6100,6100,6100,6100,6100,6110,6110,6110,6110,6190,6194,6136,6192
  335. 6070 [145]q[171]14[137]6160,6170,6172,6174,6176,6180,6130,6148,6140,6120,6150,6200
  336. 6100 [153]"ein "wa$(q[170]1)"!":[139]wa[177]q[170]1[137]6104
  337. 6101 wa[178]q[170]1:[151]5687,wa[172]2[170]6[170]7[172](wa[178]2)[170]3[172](wa[177]4)[170]14[172](wa[178]6)
  338. 6104 [158]6517:[129]k[178]0[164]1:[129]i[178]0[164]14[169]7:[151]s[170]5[170]i,145:[151]s[170]6[170]i,252:[151]s[170]4[170]i,33
  339. 6106 [129]j[178]0[164]99:[130]j,i:[129]i[178]0[164]14[169]7:[151]s[170]4[170]i,32:[130]i,k:[151]s,157:[151]s[170]1,69
  340. 6107 [129]i[178]0[164]500:[130]:[129]i[178]0[164]20:[151]s[170]i,0:[130]
  341. 6108 [141]10005:[137]1100
  342. 6110 [153]"ein ";:[139][201](su$(q[171]4),1)[178]"g"[167][153]"cmde ";
  343. 6112 [153]su$(q[171]4)"!":[139]su[177]q[171]4[137]6104
  344. 6114 su[178]q[171]4:[137]6104
  345. 6120 i[178]50[172]lv[171](lv[177]5)[172]200[171](lv[177]6)[172]200[171](lv[177]7)[172]200[171](lv[178]9)[172]950:gd[178]gd[170]i:m[178]i[173]50
  346. 6122 [153]i"goldm]nzen!":[129]i[178]0[164]12:[151]s[170]5,5:[151]s[170]6,69:[151]s[170]1,18[172][187](1)[170]120
  347. 6124 [151]s[170]4,17:[129]j[178]0[164]23:[130]:[151]s[170]4,16:[130]:[137]1490
  348. 6130 [153]"10 fackeln!":fa[178]fa[170]10:[151]s[170]5,88:[151]s[170]6,135:[151]s[170]4,17
  349. 6132 [129]i[178]5[164]60[169]5:[129]j[178]i[164]i[170]10:[151]s[170]1,j:[130]j,i:[151]s[170]4,16:[137]1100
  350. 6136 [153]"eine uhr!":uh[178]1:[151]s[170]5,88:[151]s[170]6,140:[151]s[170]4,65:[151]s[170]3,43
  351. 6138 [129]i[178]5[164]60[169]5:[129]j[178]i[164]60:[151]s[170]1,j:[130]j,i:[151]s[170]4,64
  352. 6139 [129]i[178]60[164]255:[151]s[170]1,i:[130]:[151]s[170]1,0:[137]1100
  353. 6140 i[178]1[170][181](lv[173]2):[153]i"heilsalben!":hs[178]hs[170]i
  354. 6142 [129]k[178]0[164]3:[151]s,207[171]k[172]50:[151]s[170]1,34[170]k[172]35:[151]s[170]7,219:[151]s[170]8,43
  355. 6144 [129]i[178]0[164]7[169]7:[151]s[170]5[170]i,145:[151]s[170]6[170]i,252:[151]s[170]4[170]i,17:[130]
  356. 6146 [129]i[178]0[164]300:[130]i,k:[129]i[178]0[164]7[169]7:[151]s[170]4[170]i,16:[130]
  357. 6147 [129]i[178]0[164]500:[130]:[129]i[178]0[164]20:[151]s[170]i,0:[130]:[137]1100
  358. 6148 i[178]lv[173]2:[153]i"heiltr[nke!"::ht[178]ht[170]i:[137]6142
  359. 6150 [153]ss$(lv)" - igitt!":[151]s[170]5,15:[151]s[170]6,240:[151]s[170]4,33
  360. 6152 [129]i[178]60[164]5[169][171]3:[129]j[178]i[170]15[164]i[169][171]1:[151]s[170]1,j:[130]j,i:[151]s[170]4,0:[137]1100
  361. 6160 i[178]1[170]lv:[153]i"feuerb[lle!":[158]5640:[153]d$"(NULL)zauberwaffe. verletzt gegner,
  362. 6161 fe=fe+i
  363. 6162 sys6560:forj=0to12:fori=25to42:pokes+8,i:nexti,j:pokes+4,32:pokes+11,32
  364. 6166 fori=0to20:pokes+i,0:next:goto1100
  365. 6170 i=lv+1:printi"blitzschl[ge!":sys5640:printd$"[211]zauberwaffe. verletzt gegner stark,
  366. 6171 bl[178]bl[170]i:[137]6162
  367. 6172 [153]"3 schutzzauber!":[158]5640:[153]d$"(NULL)verdoppelt kurz den r]stungsschutz,
  368. 6173 sh=sh+3:goto6162
  369. 6174 print"3 waffenzauber!":sys5640:printd$"[211]verdoppelt waffenkraft f]r kurze zeit,
  370. 6175 sw[178]sw[170]3:[137]6162
  371. 6176 [153]"3 l[hmungszauber!":[158]5640:[153]d$"(NULL)paralysiert den gegner f]r kurze zeit,
  372. 6177 lz=lz+3:goto6162
  373. 6180 print"megablast - nur im freien verwenden!
  374. 6181 [158]5640:[153]d$"(NULL)keine abgabe an personen unter 18 jh,
  375. 6184 sys6595:forj=0to20:fori=25to87step2:pokes+8,i+j*5:nexti,j
  376. 6186 pokes+4,32:pokes+11,16:fori=0to20:pokes+i,0:next:me=1:goto1100
  377. 6190 print"ein magisches pendel!":pe=1
  378. 6191 sys6647:goto6138
  379. 6192 print"ein magischer kristall!":kr=1:goto6191
  380. 6194 print"ein kompa^!":ko=1:goto6191
  381. 6200 print"eine falle - ";
  382. 6202 j=int(4*rnd(1)+1):iflv<4andj>3goto6202
  383. 6204 onjgoto6210,6220,6330,6400
  384. 6210 print"explosion!":sys6668
  385. 6212 fori=0to5:pokev+33,7:pokev+32,7:j=2^2:pokev+32,10:pokev+33,10:j=2*2:next
  386. 6214 pokev+33,11:pokev+32,11:j=300-50*su:le=le-j:ifle<0thenle=0
  387. 6216 gosub10025:goto1100
  388. 6220 iflv=9goto6202
  389. 6221 print"fallt]r!":sys5640:printd$"[211]du f[llst,,,":e=lv:lv=lv+1
  390. 6222 h=7935+1474*int(e/3)+22*(e-int(e/3)*3):ife=3thenh=h+44
  391. 6224 ife=5thenh=h-44
  392. 6226 p=h+67+134*int(9*rnd(1))+2*int(9*rnd(1)):ifpeek(p)>0goto6226
  393. 6228 gosub6300:pokes+5,64:pokes+6,250:pokes+4,17:fori=200to0step-1:pokes+1,i
  394. 6230 forj=0to2:nextj,i:pokes+4,16:li=0:goto7105
  395. 6300 fori=19to2step-1:printleft$(d$,i)"[152][200][201][200][201][200][201][200][201][200][201][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][203][202][203][202][203][202][203][202][203][202]
  396. 6320 [130]:[142]
  397. 6330 [153]"ein geist!":[158]6444
  398. 6340 [129]i[178]60[164]0[169][171]3:[129]j[178]i[170]10[164]i[169][171]1
  399. 6342 [151]s[170]1,j:[130]j,i:[158]6496
  400. 6350 j[178]10:[129]i[178]0[164]30:j[178]14[171]j:[151]v[170]33,j:[151]v[170]32,j:[151]s[170]8,200[172][187](1)
  401. 6360 [130]:[151]s[170]11,128:[151]v[170]33,11:[151]v[170]32,11:[151]v[170]21,0
  402. 6370 j[178]su[172]30[171](z0[177]0)[172]30[172]su:i[178][181](100[172]lv[170]100):le[178]le[171]1[170](i[177]j)[172](i[171]j):[139]le[179]0[167]le[178]0
  403. 6380 [141]10025:[137]1100
  404. 6400 [153]"teleport!":[158]5640:[153]d$"(NULL)du wirst weggeschleudert,,,
  405. 6410 e=int(9*rnd(1)):ife+1=lvgoto6410
  406. 6420 lv=e+1:h=7935+1474*int(e/3)+22*(e-int(e/3)*3):ife=3thenh=h+44
  407. 6424 ife=5thenh=h-44
  408. 6426 p=h+67+134*int(9*rnd(1))+2*int(9*rnd(1)):ifpeek(p)>0goto6426
  409. 6428 fori=2to19:printleft$(d$,i)"[151]"left$(b$,37):next
  410. 6430 sys6631:fori=0to230step1.5
  411. 6432 poke55337+40*int(18*rnd(1))+37*rnd(1),15*rnd(1):pokes+1,i:next:pokes+4,38
  412. 6434 li=0:goto7105
  413. 6500 ifmh>0goto1100
  414. 6510 m=int(4*rnd(1)+lv*2-1):ifm=20goto6510
  415. 6520 q=16676:pokeq,m:pokeq+100,mo(m,0):goto1305
  416. 7000 pokev+21,peek(v+21)and3:ifh=250thenifpeek(p)=0goto7008
  417. 7002 ifh=250thengosub2100:lv=9:goto7100
  418. 7006 h=h-100:ifh-lv<lvthengosub2100:lv=lv-1:goto7100
  419. 7008 gosub2200:lv=lv+1
  420. 7100 p=p+a(a)*2
  421. 7105 u$="verlies (gew"
  422. 7110 ifpeek(p)=82thenu$=u$+"0)":goto7130
  423. 7120 u$=u$+right$(str$(lv),1)+")"
  424. 7130 loadu$,8,1
  425. 8000 ifu$="l"goto1100
  426. 8005 fori=2to18:printleft$(d$,i)"[152]"left$(b$,37):next:pokev+21,peek(v+21)and15
  427. 8010 fori=0to2:printleft$(d$,i+2)"[152]"left$(b$,2*i)"[146][184][183]"spc(33-i*4)"[185][186]";
  428. 8012 printleft$(b$,i*2):next:fori=5to13:printleft$(d$,i)"      "spc(25);
  429. 8014 print"      ":next
  430. 8020 fori=0to2:printleft$(d$,16-i)"[152]"left$(b$,2*i)"[146][188][187]"spc(33-i*4)"[189][190]";
  431. 8022 printleft$(b$,i*2):next:fori=7to31:print""spc(i)"[164]"
  432. 8024 printleft$(d$,13)spc(i)"[164]":next
  433. 8030 ifa=1goto8100
  434. 8032 ifa=2thenfori=320to600step40:forj=35to37:poke55296+i+j,9:nextj,i:goto1100
  435. 8034 ifa=0thenfori=320to600step40:forj=1to3:poke55296+i+j,9:nextj,i:goto1100
  436. 8040 fori=7to13:printleft$(d$,i)spc(17)"[149]     ";:next
  437. 8050 print"[144][145][145][145][157][157][157][157][146][211][145][145]#[145][157][157][157][157][145][152][164][164][164][164][164][164][164][157][157][157][157][157][157][157][184][149][162][162][162][162][162][152][186][157][157][157][157][157][157][157]";
  438. 8052 fori=0to4:print"  [146][157][157][157][157][157][157][157]";:next:print"[188][149][162][162][162][162][162][146][152][190]":goto1100
  439. 8100 ifdi=1goto1100
  440. 8105 print""spc(58)"[218][213][213][219][157][157][157][157][220][144]  [146][255][157][157][157][144]  [146][157][157][165][167]"
  441. 8110 print""spc(9)"[204][223][146][185][186][223][146][157][157][157][157][157][206]    [223][157][157][157][157][157]     [223][157][157][157][157][157][157][146][188][187][204]   ";
  442. 8112 print"[157][157][157][157][146][206][169][189][208][169]  [223][145][157][157][157]  [146][209][187][223][207][157][157][157][157][145]   [146][205][189][190][145][157][157][157][157][157][157][169]     [145][157][157][157][157][157]";
  443. 8114 m=20:print"[169]    [146][207][145][157][157][157][157][157][169][146][184][183][169][146][205]
  444. 8116 [153]""[166]57)"(NULL)    wait(NULL)cmdcmdcmdcmdcmdcmdcmdsqr      waitfrecmdcmdcmdcmdcmdcmdcmdcmd (NULL)    (NULL) fnwaitfreusr
  445. 8118 print""spc(95)"[185] [146][214]    [146][214] [146][183][189][190][223][146][157][157][157][157][157][157][157][157][157][157][157][157][157][215][215] [189][162][162][146][187] [215][215]
  446. 8120 [158]6933:m[178]20:vi[178][194](16766):[137]1330
  447. 8200 [153]d$"(NULL)der drache speit feuer!":[151]2045,227:[129]i[178]0[164]300:[130]
  448. 8210 [151]v[170]4,173:[151]v[170]5,107:[151]v[170]28,[194](v[170]28)[176]4:[151]v[170]41,8:[151]2042,228
  449. 8212 [151]v[170]23,[194](v[170]23)[175]251:[151]v[170]29,[194](v[170]29)[175]251
  450. 8215 [151]s[170]5,192:[151]s[170]6,251:[151]s[170]1,25:[151]s[170]4,129
  451. 8220 [151]v[170]21,[194](v[170]21)[176]4:[129]i[178]0[164]80:[130]:[129]i[178]0[164]1:[151]2042,229[170]i
  452. 8230 [129]j[178]0[164]80:[130]j,i:[151]2042,228:[151]v[170]4,161:[151]v[170]5,97:[151]v[170]23,[194](v[170]23)[176]4
  453. 8240 [151]v[170]29,[194](v[170]29)[176]4:[129]i[178]0[164]80:[130]
  454. 8242 [129]i[178]0[164]1:[129]j[178]0[164]80:[130]:[151]2042,229[170]i:[130]
  455. 8250 k[178]0:[129]i[178]0[164]20:k[178]1[171]k:[151]2042,230[170]k:[151]v[170]33,k[172]6[170]4:[151]v[170]32,k[172]6[170]4
  456. 8260 [129]j[178]0[164]20:[130]j,i:[151]v[170]33,11:[151]v[170]32,11:[151]2042,229:[151]s[170]4,128
  457. 8270 [129]i[178]0[164]99:[130]:[151]v[170]21,[194](v[170]21)[175]251:[129]i[178]0[164]500:[130]:[151]2045,224
  458. 8280 i[178]300[170]75[172](z0[177]0):j[178]su[172]30:le[178]le[171](i[171]j):[139]le[179]0[167]le[178]0
  459. 8290 [151]v[170]28,[194](v[170]28)[175]251:[141]10025:[137]1100
  460. 8300 di[178]1:[129]i[178]2[164]7:[151]v[170]39[170]i,8:[151]2040[170]i,230:[130]
  461. 8302 [151]v[170]23,[194](v[170]23)[176]252:[151]v[170]29,[194](v[170]29)[176]252:[151]v[170]28,[194](v[170]28)[176]252
  462. 8303 [129]i[178]4[164]17:[153][200](d$,i)[166]10)[200](b$,19):[130]
  463. 8304 [153]"print#tototototototototototototototototototo"[200](d$,13)[166]10)"tototototototototototototototototototo
  464. 8305 pokev+21,peek(v+21)or252
  465. 8310 pokes+12,0:pokes+13,254:pokes+8,3:pokes+11,129:pokes+11,128
  466. 8320 fori=0to50:j=int(6*rnd(1)):pokev+4+j+j,110+99*rnd(1)
  467. 8322 pokev+5+j+j,60+99*rnd(1):poke2042+j,228+4*rnd(1):next
  468. 8330 pokev+28,0:pokev+21,peek(v+21)and3:pokev+41,3:pokev+4,173:pokev+5,110
  469. 8332 pokev+23,0:pokev+29,peek(v+29)and3:poke2042,232:pokev+21,peek(v+21)or4
  470. 8350 sys5640:printd$"[153][211]du bekommst den magischen diamanten!":j=232:poke198,0
  471. 8355 poke56295,1:poke2023,36:pokes+5,128:pokes+6,253:pokes+1,50:pokes+4,39:m=100
  472. 8360 j=j+1:ifj=238thenj=232:pokes+4,38
  473. 8362 poke2042,j:fore=0to22:nexte:getu$:ifu$=""goto8360
  474. 8380 poke2023,32:pokev+21,peek(v+21)and3:pokev+41,peek(5687):pokev+28,240:goto1486
  475. 8400 print"prallt ab!":sys6304:pokes+12,0:pokes+13,250:pokes+8,30:pokes+11,21
  476. 8402 pokes+11,20:forj=0to400:next:sys6178:forj=0to99:next:sys6112
  477. 8404 forj=0to99:next:sys5912:goto1458
  478. 9000 print"feuere megablast ab - ok.[157][157][157]";:ifme=0thenprint"habe ich nicht,":goto1100
  479. 9010 pokes+6,0:pokes+13,0:pokes+5,13:pokes+12,13:pokes+1,3:pokes+8,2
  480. 9020 pokes+4,129:pokes+11,129:fori=0to20:forj=0to4:q=j*j*j/4+.9+6*(j=4)
  481. 9030 pokev+33,q:pokev+32,q:nextj,i:pokev+33,11:pokev+32,11
  482. 9040 ifpeek(p)=240goto9100
  483. 9050 pokev+21,0:sys5640:printd$"[211]das ganze gew\lbe st]rzt ein,,,
  484. 9060 le[178]0:[141]10025:[137]15010
  485. 9100 [129]i[178]0[164]108:[158]7026:p[178]2[172]2:[130]:[151]v[170]21,0
  486. 9105 [158]5640:[153]d$"(NULL)der b\se zauberer ist vernichtet!
  487. 9110 sys5640:printd$" du hast nun alle macht der welt,":goto18000
  488. 10000 print"[153][147]":gosub10010
  489. 10005 printleft$(d$,21)"[150]waffe:[158]"left$(wa$(wa),7);
  490. 10006 printtab(14)"[150]schutz:[158]"left$(su$(su),7)"[150] erfah,:[158]    [157][157][157][157]"int(g-5):return
  491. 10010 print"[154]"left$(b$,39):fori=1to18:print" "spc(37)" ";:next
  492. 10020 print""left$(b$,39)""spc(9)"[181][179][180][179][180][182] verlies [181][179][180][179][180][182][158]
  493. 10022 [129]i[178]0[164]760[169]40:[151]1063[170]i,32:[130]
  494. 10025 [151]2,le[173]10[170].99:[158]5408
  495. 10026 u$[178][196]([181](le[173]10)):[153][200](d$,20)"cont"[201](u$,[195](u$)[171]1);
  496. 10027 [153]le[171]10[172][197](u$)"cmdcmdcmd.%  ":[142]
  497. 11000 k[178]5:[141]12000:k[178][255]:[142]
  498. 11100 [129]j[178]6[164]12:k[178]j:[139]k[178]7[167][141]13000
  499. 11110 [141]12000:[130]:[142]
  500. 12000 k[178]49152[170]120[172]k:[151]50836,k[173]256:[151]50835,k[171]256[172][194](50836):[158]50832:[142]
  501. 13000 [151]2044,206:[151]2046,207:[129]i[178]0[164]500:[130]:[151]s[170]5,0:[151]s[170]6,249
  502. 13010 [151]s[170]4,129:[129]i[178]0[164]33:[151]v[170]33,16[172][187](1):[151]s[170]1,180[172][187](1):[130]
  503. 13020 [151]s[170]4,128:[151]v[170]33,11:[129]i[178]0[164]500:[130]:[151]2044,202:[151]2046,204:[142]
  504. 14000 [139][194](51000)[178]13[175]ti$[177]"035959"[167][151]51000,0:k[178]2:[137]12000
  505. 14002 [139]w[178]1[175][194](p)[178]240[167]k[178]0:[137]14200
  506. 14004 [139][194](51001)[178]0[175][194](p)[178]240[175]di[178]0[167]k[178]3:[137]14200
  507. 14010 [139]ti$[177]"045959"[167]k[178]1:[137]14200
  508. 14015 [139][194](p)[179][177]240[167][142]
  509. 14020 [139]di[178]1[167][158]5640:[153]d$"print(NULL)der zauberer sagt: &endlich bist du":[151]51000,0
  510. 14022 [139]di[178]1[167][158]5640:[153]d$" wieder da. gib mir den diamanten!&":ti$[178]"030000
  511. 14100 return
  512. 14150 print"]bergib diamanten - ok,";:ifdi=0thenprint"[157][157][157]du hast ihn nicht,":goto1100
  513. 14160 ifpeek(p)<>240thenprint"[157][157][157]keiner will ihn,":goto1100
  514. 14170 k=4
  515. 14200 gosub12000:fori=0to3:poke2044+i,202+i:pokev+43+i,14:next:sys6056
  516. 14220 le=0:gosub13000:goto10025
  517. 15000 gosub10025:sys5640:printd$"[153][211]deine lebensenergie ist zu ende,
  518. 15010 [158]5640:[158]5640:[153]d$"print_ du bist tot _":[151]v[170]21,0:[158]5812
  519. 15020 [129]i[178]2[164]19:[153][200](d$,i)"stop"[200](b$,37):[130]:[151]v[170]28,0
  520. 15030 [129]i[178]4[164]7:[151]2040[170]i,205[170]i:[151]v[170]39[170]i,0:[151]v[170]i[170]i[170]1,[194](v[170]i[170]i[170]1)[171]32
  521. 15040 [151]v[170]i[170]i,[194](v[170]i[170]i)[171]8:[130]:[151]v[170]21,240:[129]i[178]0[164]4:[129]j[178]0[164]333:[130]
  522. 15050 [129]j[178]43[164]47:[151]v[170]j,[171]11[172](i[178]1)[171]12[172](i[178]2)[171]15[172](i[178]3)[171](i[178]4):[130]j,i
  523. 16000 [156]:s[178]54272:[129]i[178]0[164]23:[151]s[170]i,0:[130]:[129]i[178]0[164]10:[135]t0(i),t1(i),tn(i):[130]
  524. 16001 [151]s[170]5,90:[151]s[170]6,170:[151]s[170]12,10:[151]s[170]13,90
  525. 16002 [129]i[178]0[164]10:x[178]t0(i):[141]17000:[151]s[170]1,j:[151]s,k:[151]s[170]4,33
  526. 16004 x[178]t1(i):[139]x[177]0[167][141]17000:[151]s[170]8,j:[151]s[170]7,k:[151]s[170]11,33
  527. 16006 [129]j[178]1[164]tn(i):[129]k[178]6[164]10:[151]s[170]24,k:[130]:[129]k[178]15[164]7[169][171]1:[151]s[170]24,k
  528. 16008 [130]k,j:[151]s[170]4,32:[151]s[170]11,32:[130]:[158]5640:[137]18000
  529. 16999 x[178]x[174]1.02
  530. 17000 j[178][181](x[173]256):k[178]x[171]256[172]j:[142]
  531. 18000 [158]5640:[153]"sys(NULL)noch ein spiel? (j/n)
  532. 18010 getu$:ifu$<>"n"andu$<>"j"goto18010
  533. 18020 ifu$="n"thenprint"[147]":sys64738
  534. 18030 poke53269,0:print"[147][151]l[207]"chr$(34)"verlies (kerk)"chr$(34)",8r[213]
  535. 18040 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[162]
  536. 41000 [131]2146,1072,8,2146,851,5
  537. 41002 [131]2146,,2,2146,1072,8,2551,851
  538. 41004 [131]5,2408,,2,2408,1072,5,2146
  539. 41006 [131],2,2146,851,5,2025,,2,2145,1072,12
  540.